A.C.E. 2

home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSPRO6.DMS / in.adf / Procedures / Bobs / _Squash_Procs.AMOS < prev next >
AMOS Basic Source Code Archive | 1992-09-29 | 2.7 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: AMOS Basic Source Code Archive (archive/amosSrc).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	AMOS Basic Source Code Archive `(archive/amosSrc)`	magic	Supported
`100%`	file	AMOS Basic source code, untested	default
`99%`	file	data	default
`59%`	TrID	AMOS source (v1.34)	default
`40%`	TrID	AMOS source (generic)	default
`100%`	gt2	Kopftext: 'AMOS Basic v1.34'	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 2e 33 34 |AMOS Bas|ic v1.34|
|00000010| 00 00 0a c4 20 01 06 52 | 00 38 2a 2a 2a 2a 2a 2a |.... ..R|.8******|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8*     |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 41 4d 4f 53 |* .. ..R|.8* AMOS|
|000000a0| 20 50 72 6f 66 65 73 73 | 69 6f 6e 61 6c 20 50 72 | Profess|ional Pr|
|000000b0| 6f 63 65 64 75 72 65 20 | 4c 69 62 72 61 72 79 20 |ocedure |Library |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8*     |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 50 72 6f 63 |* .. ..R|.8* Proc|
|00000120| 65 64 75 72 65 3a 20 52 | 6f 75 74 69 6e 65 73 20 |edure: R|outines |
|00000130| 66 6f 72 20 55 6e 70 61 | 63 6b 69 6e 67 20 53 71 |for Unpa|cking Sq|
|00000140| 75 61 73 68 65 64 20 42 | 6f 62 73 20 20 20 20 20 |uashed B|obs     |
|00000150| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8*     |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000190| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 41 |* .. ..R|.8*    A|
|000001a0| 75 74 68 6f 72 3a 20 46 | 72 61 6e 63 6f 69 73 20 |uthor: F|rancois |
|000001b0| 4c 69 6f 6e 65 74 20 20 | 20 20 20 20 20 20 20 20 |Lionet  |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001d0| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8*     |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 2a 20 00 00 20 01 06 52 | 00 38 2a 2a 2a 2a 2a 2a |* .. ..R|.8******|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 20 00 00 02 00 00 00 | 21 01 18 4e 00 26 00 37 |* ......|!..N.&.7|
|00000260| 41 4d 4f 53 50 72 6f 5f | 50 72 6f 64 75 63 74 69 |AMOSPro_|Producti|
|00000270| 76 69 74 79 32 3a 50 72 | 6f 63 65 64 75 72 65 73 |vity2:Pr|ocedures|
|00000280| 2f 42 6f 62 73 2f 53 71 | 75 61 73 68 65 64 5f 42 |/Bobs/Sq|uashed_B|
|00000290| 6f 62 73 2e 41 62 6b 00 | 00 00 26 01 06 52 00 44 |obs.Abk.|..&..R.D|
|000002a0| 54 68 65 73 65 20 70 72 | 6f 63 65 64 75 72 65 73 |These pr|ocedures|
|000002b0| 20 61 6c 6c 6f 77 20 79 | 6f 75 20 74 6f 20 75 6e | allow y|ou to un|
|000002c0| 73 71 75 61 73 68 20 69 | 6d 61 67 65 73 20 66 72 |squash i|mages fr|
|000002d0| 6f 6d 20 61 20 62 61 6e | 6b 2c 20 67 72 61 62 20 |om a ban|k, grab |
|000002e0| 74 68 65 6d 00 00 29 01 | 06 52 00 4a 66 72 6f 6d |them..).|.R.Jfrom|
|000002f0| 20 61 20 73 63 72 65 65 | 6e 20 61 6e 64 20 74 68 | a scree|n and th|
|00000300| 65 6e 20 75 73 65 20 74 | 68 65 6d 20 61 73 20 42 |en use t|hem as B|
|00000310| 6f 62 73 2e 20 54 68 69 | 73 20 69 73 20 75 73 65 |obs. Thi|s is use|
|00000320| 66 75 6c 20 62 65 63 61 | 75 73 65 20 69 74 20 61 |ful beca|use it a|
|00000330| 6c 6c 6f 77 73 20 00 00 | 27 01 06 52 00 46 79 6f |llows ..|'..R.Fyo|
|00000340| 75 20 74 6f 20 68 61 76 | 65 20 6d 61 6e 79 20 42 |u to hav|e many B|
|00000350| 6f 62 73 20 69 6e 20 6d | 65 6d 6f 72 79 20 61 6e |obs in m|emory an|
|00000360| 64 20 62 65 20 73 61 76 | 69 6e 67 20 6d 65 6d 6f |d be sav|ing memo|
|00000370| 72 79 20 61 74 20 74 68 | 65 20 73 61 6d 65 20 74 |ry at th|e same t|
|00000380| 69 6d 65 2e 00 00 04 01 | 06 52 00 00 00 00 25 01 |ime.....|.R....%.|
|00000390| 06 52 00 42 53 65 65 20 | 74 68 65 20 22 53 71 75 |.R.BSee |the "Squ|
|000003a0| 61 73 68 5f 41 5f 42 6f | 62 2e 41 4d 4f 53 22 20 |ash_A_Bo|b.AMOS" |
|000003b0| 70 72 6f 67 72 61 6d 20 | 66 6f 72 20 64 65 74 61 |program |for deta|
|000003c0| 69 6c 73 20 6f 6e 20 68 | 6f 77 20 74 6f 20 63 72 |ils on h|ow to cr|
|000003d0| 65 61 74 65 20 61 00 00 | 12 01 06 52 00 1c 62 61 |eate a..|...R..ba|
|000003e0| 6e 6b 20 66 75 6c 6c 20 | 6f 66 20 73 71 75 61 73 |nk full |of squas|
|000003f0| 68 65 64 20 42 6f 62 73 | 2e 20 00 00 04 01 06 52 |hed Bobs|. .....R|
|00000400| 00 00 00 00 02 00 00 00 | 04 01 06 52 00 00 00 00 |........|...R....|
|00000410| 19 01 06 52 00 2a 53 65 | 74 20 75 70 20 61 20 73 |...R.*Se|t up a s|
|00000420| 63 72 65 65 6e 20 66 6f | 72 20 75 6e 70 61 63 6b |creen fo|r unpack|
|00000430| 69 6e 67 20 69 6d 61 67 | 65 73 20 6f 6e 74 6f 20 |ing imag|es onto |
|00000440| 00 00 04 01 06 52 00 00 | 00 00 1b 01 00 12 ff f0 |.....R..|........|
|00000450| 0a 80 70 62 6f 62 5f 69 | 6e 69 74 00 00 84 00 3e |..pbob_i|nit....>|
|00000460| 00 00 00 0a 00 5c 00 3e | 00 00 00 10 00 5c 00 3e |.....\.>|.....\.>|
|00000470| 00 00 00 50 00 5c 00 3e | 00 00 00 55 00 8c 00 00 |...P.\.>|...U....|
|00000480| 02 00 00 00 04 01 06 52 | 00 00 00 00 28 01 06 52 |.......R|....(..R|
|00000490| 00 48 55 6e 70 61 63 6b | 20 73 71 75 61 73 68 65 |.HUnpack| squashe|
|000004a0| 64 20 69 6d 61 67 65 20 | 6e 75 6d 62 65 72 20 32 |d image |number 2|
|000004b0| 20 61 6e 64 20 67 72 61 | 62 20 74 68 69 73 20 69 | and gra|b this i|
|000004c0| 6d 61 67 65 20 69 6e 74 | 6f 20 74 68 65 20 6f 62 |mage int|o the ob|
|000004d0| 6a 65 63 74 20 62 61 6e | 6b 20 00 00 0b 01 06 52 |ject ban|k .....R|
|000004e0| 00 0e 61 74 20 70 6f 73 | 69 74 69 6f 6e 20 31 20 |..at pos|ition 1 |
|000004f0| 00 00 04 01 06 52 00 00 | 00 00 10 01 00 12 ff e4 |.....R..|........|
|00000500| 04 80 70 62 6f 62 00 84 | 00 3e 00 00 00 02 00 5c |..pbob..|.>.....\|
|00000510| 00 3e 00 00 00 01 00 8c | 00 00 02 00 00 00 04 01 |.>......|........|
|00000520| 06 52 00 00 00 00 1b 01 | 06 52 00 2e 59 6f 75 27 |.R......|.R..You'|
|00000530| 6c 6c 20 68 61 76 65 20 | 74 6f 20 73 65 74 20 75 |ll have |to set u|
|00000540| 70 20 79 6f 75 72 20 6f | 77 6e 20 70 61 6c 65 74 |p your o|wn palet|
|00000550| 74 65 20 74 68 6f 75 67 | 68 21 00 00 04 01 06 52 |te thoug|h!.....R|
|00000560| 00 00 00 00 03 01 0d 34 | 00 00 42 01 0c fc 00 36 |.......4|..B....6|
|00000570| 00 00 02 68 00 5c 00 36 | 00 00 06 66 00 5c 00 36 |...h.\.6|...f.\.6|
|00000580| 00 00 0e ee 00 5c 00 36 | 00 00 0a aa 00 5c 00 36 |.....\.6|.....\.6|
|00000590| 00 00 0e 42 00 5c 00 36 | 00 00 06 c0 00 5c 00 36 |...B.\.6|.....\.6|
|000005a0| 00 00 02 6c 00 5c 00 36 | 00 00 08 22 00 5c 00 36 |...l.\.6|...".\.6|
|000005b0| 00 00 02 80 00 5c 00 36 | 00 00 00 2a 00 5c 00 36 |.....\.6|...*.\.6|
|000005c0| 00 00 0e c2 00 5c 00 36 | 00 00 0e a8 00 5c 00 36 |.....\.6|.....\.6|
|000005d0| 00 00 0c 46 00 5c 00 36 | 00 00 0c 84 00 5c 00 3e |...F.\.6|.....\.>|
|000005e0| 00 00 00 00 00 5c 00 36 | 00 00 00 8e 00 00 02 00 |.....\.6|........|
|000005f0| 00 00 12 01 1b 9e 00 3e | 00 00 00 01 00 5c 00 3e |.......>|.....\.>|
|00000600| 00 00 00 64 00 5c 00 3e | 00 00 00 64 00 5c 00 3e |...d.\.>|...d.\.>|
|00000610| 00 00 00 01 00 00 02 00 | 00 00 03 01 12 90 00 00 |........|........|
|00000620| 03 01 06 7a 00 00 02 00 | 00 00 26 01 03 76 00 00 |...z....|..&..v..|
|00000630| 01 52 00 1e 00 00 00 06 | 00 00 0a 80 70 62 6f 62 |.R......|....pbob|
|00000640| 5f 69 6e 69 74 00 00 84 | 00 06 00 00 04 00 62 61 |_init...|......ba|
|00000650| 6e 6b 00 5c 00 06 00 06 | 04 00 6e 63 6f 6c 00 5c |nk.\....|..ncol.\|
|00000660| 00 06 00 0c 02 00 6d 78 | 00 5c 00 06 00 12 02 00 |......mx|.\......|
|00000670| 6d 79 00 8c 00 00 04 01 | 06 52 00 00 00 00 15 01 |my......|.R......|
|00000680| 06 52 00 22 53 65 74 73 | 20 75 70 20 73 63 72 65 |.R."Sets| up scre|
|00000690| 65 6e 20 37 20 61 73 20 | 61 20 77 6f 72 6b 20 73 |en 7 as |a work s|
|000006a0| 63 72 65 65 6e 2e 00 00 | 25 01 06 52 00 42 46 72 |creen...|%..R.BFr|
|000006b0| 6f 6d 20 68 65 72 65 20 | 42 6f 62 73 20 61 72 65 |om here |Bobs are|
|000006c0| 20 75 6e 73 71 75 61 73 | 68 65 64 20 61 6e 64 20 | unsquas|hed and |
|000006d0| 67 72 61 62 62 65 64 20 | 77 69 74 68 20 74 68 65 |grabbed |with the|
|000006e0| 20 50 42 4f 42 20 70 72 | 6f 63 65 64 75 72 65 20 | PBOB pr|ocedure |
|000006f0| 00 00 04 01 06 52 00 00 | 00 00 0a 04 03 9e 00 06 |.....R..|........|
|00000700| 00 00 08 00 70 62 5f 62 | 61 6e 6b 00 00 00 0f 04 |....pb_b|ank.....|
|00000710| 00 06 ff ff 08 00 70 62 | 5f 62 61 6e 6b 00 ff a2 |......pb|_bank...|
|00000720| 00 06 00 00 04 00 62 61 | 6e 6b 00 00 08 04 00 06 |......ba|nk......|
|00000730| 00 18 02 00 73 00 ff a2 | 0c 7c 00 00 1a 04 09 ea |....s...|.|......|
|00000740| 00 3e 00 00 00 07 00 5c | 00 06 00 0c 02 00 6d 78 |.>.....\|......mx|
|00000750| 00 5c 00 06 00 12 02 00 | 6d 79 00 5c 00 06 00 06 |.\......|my.\....|
|00000760| 04 00 6e 63 6f 6c 00 5c | 00 3e 00 00 00 00 00 00 |..ncol.\|.>......|
|00000770| 03 04 0a ae 00 00 07 04 | 0c 6e 00 06 00 18 02 00 |........|.n......|
|00000780| 73 00 00 00 03 01 03 90 | 00 00 02 00 00 00 17 01 |s.......|........|
|00000790| 03 76 00 00 02 c4 00 30 | 00 00 00 06 00 00 04 80 |.v.....0|........|
|000007a0| 70 62 6f 62 00 84 00 06 | 00 00 02 00 6e 00 00 5c |pbob....|....n..\|
|000007b0| 00 06 00 06 02 00 64 00 | 00 8c 00 00 04 01 06 52 |......d.|.......R|
|000007c0| 00 00 00 00 08 01 06 52 | 00 08 49 6e 70 75 74 73 |.......R|..Inputs|
|000007d0| 3a 20 00 00 04 01 06 52 | 00 00 00 00 21 01 06 52 |: .....R|....!..R|
|000007e0| 00 3a 4e 20 2d 20 54 68 | 65 20 4f 62 6a 65 63 74 |.:N - Th|e Object|
|000007f0| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 75 6e 70 | you wan|t to unp|
|00000800| 61 63 6b 20 66 72 6f 6d | 20 74 68 65 20 73 71 75 |ack from| the squ|
|00000810| 61 73 68 65 64 20 62 61 | 6e 6b 20 20 00 00 04 01 |ashed ba|nk  ....|
|00000820| 06 52 00 00 00 00 28 01 | 06 52 00 48 44 20 2d 20 |.R....(.|.R.HD - |
|00000830| 54 68 65 20 4f 62 6a 65 | 63 74 20 70 6f 73 69 74 |The Obje|ct posit|
|00000840| 69 6f 6e 20 69 6e 20 74 | 68 65 20 4f 62 6a 65 63 |ion in t|he Objec|
|00000850| 74 20 62 61 6e 6b 20 77 | 68 65 72 65 20 79 6f 75 |t bank w|here you|
|00000860| 20 77 61 6e 74 20 74 68 | 65 20 75 6e 70 61 63 6b | want th|e unpack|
|00000870| 65 64 20 20 00 00 10 01 | 06 52 00 18 20 20 20 20 |ed  ....|.R..    |
|00000880| 69 6d 61 67 65 20 74 6f | 20 62 65 20 6c 6f 63 61 |image to| be loca|
|00000890| 74 65 64 2e 00 00 04 01 | 06 52 00 00 00 00 0a 04 |ted.....|.R......|
|000008a0| 03 9e 00 06 00 00 08 00 | 70 62 5f 62 61 6e 6b 00 |........|pb_bank.|
|000008b0| 00 00 07 04 04 4e 00 06 | 00 00 02 00 6e 00 00 00 |.....N..|....n...|
|000008c0| 1a 04 00 06 00 0c 02 00 | 61 00 ff a2 01 40 00 74 |........|a....@.t|
|000008d0| 00 06 ff ff 08 00 70 62 | 5f 62 61 6e 6b 00 00 7c |......pb|_bank..||
|000008e0| ff c0 00 06 00 00 02 00 | 6e 00 ff e2 00 3e 00 00 |........|n....>..|
|000008f0| 00 0a 00 00 0b 04 02 be | 01 5e 21 f2 00 74 00 06 |........|.^!..t..|
|00000900| 00 0c 02 00 61 00 00 7c | 00 00 1d 07 00 06 00 12 |....a..||........|
|00000910| 02 00 61 62 ff a2 01 40 | 00 74 00 06 ff ff 08 00 |..ab...@|.t......|
|00000920| 70 62 5f 62 61 6e 6b 00 | 00 7c ff c0 21 f2 00 74 |pb_bank.|.|..!..t|
|00000930| 00 06 00 0c 02 00 61 00 | 00 7c ff e2 00 3e 00 00 |......a.|.|...>..|
|00000940| 00 02 00 00 27 07 00 06 | 00 18 02 00 73 78 ff a2 |....'...|....sx..|
|00000950| 21 f2 00 74 00 06 00 0c | 02 00 61 00 ff c0 00 3e |!..t....|..a....>|
|00000960| 00 00 00 02 00 7c ff e2 | 00 3e 00 00 00 10 00 54 |.....|..|.>.....T|
|00000970| 00 06 00 1e 02 00 73 79 | ff a2 21 f2 00 74 00 06 |......sy|..!..t..|
|00000980| 00 0c 02 00 61 00 ff c0 | 00 3e 00 00 00 04 00 7c |....a...|.>.....||
|00000990| 00 00 0d 07 00 06 00 24 | 02 00 73 00 ff a2 0c 7c |.......$|..s....||
|000009a0| 00 54 0c 6e 00 3e 00 00 | 00 07 00 00 29 07 00 4e |.T.n.>..|....)..N|
|000009b0| 02 03 00 60 00 06 00 12 | 02 00 61 62 00 5c 00 3e |...`....|..ab.\.>|
|000009c0| 00 00 00 00 00 5c 00 3e | 00 00 00 00 00 54 1b fc |.....\.>|.....T..|
|000009d0| 00 06 00 06 02 00 64 00 | 00 5c 00 3e 00 00 00 00 |......d.|.\.>....|
|000009e0| 00 5c 00 3e 00 00 00 00 | 00 94 00 06 00 18 02 00 |.\.>....|........|
|000009f0| 73 78 00 5c 00 06 00 1e | 02 00 73 79 00 00 07 07 |sx.\....|..sy....|
|00000a00| 0c 6e 00 06 00 24 02 00 | 73 00 00 00 24 07 00 06 |.n...$..|s...$...|
|00000a10| 00 2a 02 00 61 61 ff a2 | 1a 72 00 74 00 06 00 06 |.*..aa..|.r.t....|
|00000a20| 02 00 64 00 00 7c 00 54 | 21 d8 00 06 00 2a 02 00 |..d..|.T|!....*..|
|00000a30| 61 61 ff c0 00 3e 00 00 | 00 06 00 5c 21 fe 00 74 |aa...>..|...\!..t|
|00000a40| 00 06 00 0c 02 00 61 00 | ff c0 00 3e 00 00 00 06 |......a.|...>....|
|00000a50| 00 7c 00 00 03 04 02 da | 00 00 03 01 03 90 00 00 |.|......|........|
|00000a60| 02 00 00 00 0e 01 03 76 | 00 00 00 62 00 00 00 00 |.......v|...b....|
|00000a70| 00 06 00 00 08 80 70 62 | 6f 62 5f 65 6e 64 00 00 |......pb|ob_end..|
|00000a80| 04 01 06 52 00 00 00 00 | 19 01 06 52 00 2a 4a 75 |...R....|...R.*Ju|
|00000a90| 73 74 20 65 72 61 73 65 | 73 20 74 68 65 20 73 63 |st erase|s the sc|
|00000aa0| 72 65 65 6e 20 75 73 65 | 64 20 66 6f 72 20 75 6e |reen use|d for un|
|00000ab0| 70 61 63 6b 69 6e 67 20 | 00 00 04 01 06 52 00 00 |packing |.....R..|
|00000ac0| 00 00 06 04 0a 04 00 3e | 00 00 00 07 00 00 03 01 |.......>|........|
|00000ad0| 03 90 00 00 02 00 00 00 | 41 6d 42 73 00 00       |........|AmBs..  |
+--------+-------------------------+-------------------------+--------+--------+